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user program. 
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termination 
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DATA SET CHARACTERISTICS 


TEMPORARY DATA SETS 


NO DSNAME 
DSN=&&NAME 
DISP=(NEW,DELETE) 


BACKWARD REF TO A TEMP. DATA wet 


NON—TEMP DATA SETS 


HAS NONE OF THE ABOVE ATTRIBUTES 


OLD DATA SETS ARE NON-TEMP. » 
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MOUNT ATTRIBUTES 


PERMANENTLY RESIDENT: ARE VOLUMES 
NEVER AVAILABLE TO THE SYSTEM FOR 
DISMOUNTING. 


EX. VOLUMES CONTAINING. 


LINKLIB 
JOBOE > 

PROCLIB 

IPL | 

ANY PHYSICALLY NON—DEMOUNTABLE 
DEVICE. a 


RESERVED: NOT AVAILABLE TO THE 
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OPERATOR CAN REMOVE WITH UNLOAD. 
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OPERATING SYSTEM. 
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USE ATTRIBUTES 


PRIVATE: CAN ONLY SATISFY SPECIFIC 
REQUESTS. 


PUBLIC: CAN SATISFY 


® SPECIFIC REQUESTS 
® NON-SPECIFIC REQUESTS FOR TEMP. DS. 


STORAGE:CAN SATISFY 
@ SPECIFIC REQUESTS 
® NON-SPECIFIC REQUESTS FOR TEMP D.S. 
AND NON TEMP DATASETS. 
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REQUEST CHARACTERISTICS 
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unit requests. 






Device Strikeout 









2. Goto associated 
routine. 









Modify the primary and 
secondary bit patterns in 
AWT entries to complete 
— the allocation to a data set. 





Yes 
TIOT Construction « 











All requests 
satisfied 









UCB Bit Pattern 
Scan 


Yes Scan the UCB lookup 
Allocation Recovery table for the next. 


useful device. 






| Linkage 
Module 


Yes 
AVR Processing 





1974 
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Unit Assignment (Part 2 of 2) 


Separation Strikeout 


Strike from AWT entries, the 
bits corresponding to devices | 
that would violate separation 
or affinity requests. 7 













Decision 
Allocation . 
Data Path Calculator 








1. Select devices for 
data sets with 
multiple-unit 
possibilities. 


Search the scheduler lookup 
table for UCB pointers, and 
turn ona mask bit 4 
| | corresponding to that channel. | 
2. Go to associated | ae 
routines. 









Device Strikeout 






Modify the primary and | 
secondary bit patterns in — 
_ AWT entries to complete 
the allocation to a data 
set. 


TIOT Construction 
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Allocation 
Exit 


Allocation 
Control Routine 


ie 





. Operator replies: 


e WAIT 


Allocation Recovery 


Allocation . 
Recoverv | 


Inform the operator 

of the recovery options 
available, and pass 
control to the proper 
routine to comply 

with his request. 


Wait for 
Unallocation 





e CANCEL 


Wait for unallocation 
to occur during the 

execution of another 
task. 






e Neither 
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Space Assignment (Part 1 of 2) 


External Action 


1. Verify that the correct direct 
access volumes are mounted 
in response to requests for 
volumes that require space 
allocation for new data sets. 








. Unload any devices that are 
known to contain wrong 
volumes. 













Request for 
“control volume 


No 


. To perform load balancing 
initialization if there are 
public volume requests, 
go to IEF AB400. 


. To use load balancing to 
select the best unit for 
public volume requests, 
go to IEF AB401. 


. Obtain space on direct 


access devices for 
requesting data sets. 
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~ Mount Control 
~ Volume 













. Build dummy allocation tables to 
have a control volume mounted 
when data set called for cannot be. 
iocated on a currently mounted 
control volume. 


2. Reset pointers to real tables after 
volume is mounted. 


Load Balance 
Initialization 


Gets core and initializes 
the load balance work 
area. 








Load Balancing 
Selection 












. Scans the load balancing work 
area tables and selects the best 
candidate from the input list; 

whenever a non-specific request 
needs direct access space. 


2. Selects alternate candidates 
when DADSM failed on a 
previously determined request. 


Yes | 
DADSM Error 


Recovery 


IF 
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Space Assignment (Part 2 of 2) 


TIOT Compression 






. Reduce the TIOT to its 
final size. 


. Provide an interface with 
the VARY command. 


{Yes 
Queue Management 
Error - | 





Extended External 
Action 


. Verify that the correct direct 
access volumes are mounted 
in response to requests for 
volumes that contain old 


direct access data sets. 


Yes — 
Non-recovery Error 





[No 


Allocation Exit 
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XXIEFPROC EXEC 


-XXIEFRDER DD 


- XXDEDDD DD 


OS/VS1_ Initiator: Proc 


PGM=IEFIIC, PARM=’A, RESV=nn, SWA=n’ 
DSN=&&SWADS, UNIT=2314, | 
SPACE=(176,(250,,CONTIG),} 

DISP=(NEW, DELETE) » 

-UNIT=2314, SPACE=(400,(200, 50),) _ 
DISP=(NEW, DELETE) | 


LE 


XX!IEFPROC EXEC 

XXIEFRDER ~~ DD 
XX 

XX 


_ JES Writer Proc 


PGM=IEFOSCO1, PARM=’PA’ 
UNIT=1403, VOLUME=(,,,35), | 


‘DSN=SYSOUT, DISP=(NEW, KEEP), — 
DCB=(RECFM=FM, LRECL=133) 


85 





JES READER PROCEDURE 


Procedure: RDR : _ | | 


// \EFPROC PGM=IEFVMA X 


// : : PARM=‘bppttttsscccrlaaaaefh’ 
// \EFRDER UNIT=2540,LABEL=(,NL), VOLUME=SER=SYSIN, X 
| | DCB=(LRECL=80, RECFM=F), DISP=OLD 





| Procedure: RDRT | 7s 





// \EFPROC PGM=IEFVMA, _ x 
Mee | PARM=‘bppttttssccclaaaaefh’ - & 4 

// \EFRDER DD — UNIT=2400,LABEL=(,NL), VOLUME=SER=SYSIN, X- 
a _- DCB=(LRECL=80, RECFM=F, BLKSIZE=80), DISP=OLD 










TUMEL PRELESSAG 


EXTERNAL INTERRUPT - 






EXTERNAL FIRST LEVEL INTERRUPT HANDLER 


TIMER CONSOLE 


FLIH 





SWITCH 


| DISPATCHER 
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TIMER SLIH a 
RESET 








| INTERVAL TIMER 
- ee = | STORE NEW TOX 
ao NO > INTERVAL | | IN SHPC 
~ RETURN > +e TIMER =0 | ae | enmewa 
Yes _ 
DEQTOP TQE 






| SUBTRACT 6 HR's| 
~ YES | FOR ALL TQE's 
ON THE CHAIN 






6 HR's 
INTERVAL 












_ TIMER QUEUE ELEMENT 


o | | 5 | J 
| ADDRESS OF TCB LINK TO NEXT TOE 


20 


28 


70. — 





TIME OF EXPIRATION/TIME 
REMAINING 


~ ADDRESS OF | 
| EXIT ROUTINE a 


EXPECTED TIME OF 
EXPECTED RETURN 


LINK TO PREVIOUS TOE 




















INTERVAL _ INTERVAL : INTERVAL 7 INTERVAL 
TIMER SHPC TIMER _ SHPC TIMER SHPC TIMER | SHPC 


ant hace o 


| 


TIMER QUEUE 


NEW TOX - SHPC ~ 





SINE 


SMF in the VS1 System 


SYS1.PARMLIB 
IPL/NIP 
SMF Control 
Parameters Supervisor 









Operator’s 
Console 





Input 
subsystem 
JES | 


‘Initiator/ 


Terminator | 


[/O Support 


DADSM 


RTAM. 
(VS1) 


VSAM 


ae, 





VS Control Program 


SMF Routines 
heh 6 Bei EE taba ake ahd, as 








SYS1.MAN 





= = Collection SMF 
| « 
are Records 
Writer 
Ree eee ES 
_ Installation— 
Written Routines Analysis/Report 






Routines 
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Analyze 









EFUTL 






IEFU83 







IEFACTRT 


SOY LCI DLS 8 t 


\EFUUP 


Management 
Information 
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ACCOUNTING RECORDS 






RECORD TYPE 








AFTER NORMAL OR ABNORMAL 
TERMINATION OF A JOB STEP FOR 
BACKGROUND JOBS. 


AFTER NORMAL OR ABNORMAL JOB 
TERMINATION. FOR BACKGROUND JOBS. 


AFTER PROCESSING OF A SYSOUT 
CLASS OR FORM WITHIN A CLASS FOR A 
BACKGROUND JOB HAS FINISHED. 


EACH TIME A JOB IS INITIATED. 






na WHEN WRITTEN a 


PAGING ACTIVITY, COMPLETION CODE, STEP 






WRITER START AND END TIMES, NUMBER OF 






OF ACCOUNTING FIELDS ON JOB STATEMENT. 








INFORMATION CONTAINED > 
JOB IDENTIFICATION, TIME OF DAY THAT CERTAIN 
EVENTS OCCUR DURING STEP PROCESSING, STEP _ 
CPU TIME, AMOUNT OF MAIN STORAGE 

ALLOCATED AND USED, DEVICES USED, STEP. 













PRIORITY, STEP ACCOUNTING DATA, TERMINATION 
INDICATOR. | 










JOB IDENTIFICATION, TIME OF DAY THAT CERTAIN. |. 


EVENTS OCCUR DURING JOB PROCESSING, JOB 
CPU TIME, COMPLETION CODE, JOB PRIORITY, 
JOB ACCOUNTING DATA, TERMINATION INDICATOR. 












SYSOUT DATA SETS WITHIN THE CLASS AND FORM, 
NUMBER OF LOGICAL RECORDS PROCESSED. 
JOB IDENTIFICATION, PROGRAMMER’S NAME, 
USER IDENTIFICATION, NUMBER AND CONTENTS 












yL61 ‘d109 Wal @ 


PLA 








DATA SET ACTIVITY RECORDS 


RECORD TYPE WHEN WRITTEN INFORMATION CONTAINED 


A USER’S DATA SET OPENED FOR CREATION AND EXPIRATION DATES, DEVICE TYPE, 
INPUT OR RDBACK IS CLOSED OR EXCP COUNT, VOLUME SERIAL NUMBERS, 
PROCESSED BY EOV. NUMBER OF VOLUMES, RECORD FORMAT AND 

| | : LENGTH, AND PERTINENT PORTIONS OF SYSTEM 
CONTROL BLOCKS. 





oman 
fom 







Ror ela enter eae FO en OER | 





15 A USER'S DATA SET OPENED FOR SAME TYPE AS RECORD 14. 
| | QUTPUT, UPDAT, INOUT, OR , : 
OUTIN PROCESSING IS CLOSED OR 
PROCESSED BY EOV. 





SPACE IS AVAILABLE ON A VOLUME. HAVE OCCURRED SINCE THE COMPONENT WAS 
ONE RECORD IS WRITTEN FOR EACH | OPENED. | 
COMPONENT CLOSED. IF A CLUSTER 

IS CLOSED, ONE RECORD IS WRITTEN 

FOR EACH COMPONENT IN THE 

CLUSTER. 


A USER'S DATA SET IS SCRATCHED. | DATA SET NAME, NUMBER OF VOLUMES, VOLUME 
SERIAL NUMBERS. 
18 _| A DATA SET IS RENAMED. OLD DATA SET NAME, NEW DATA SET NAME, 
| | NUMBER OF VOLUMES, VOLUME SERIAL NUMBERS. 
62. | AT THE SUCCESSFULOR THE NAME OF THE CATALOG IN WHICH THE 
| UNSUCCESSFUL OPENING OF A VSAM | COMPONENT OR CLUSTER IS DEFINED AND THE 
| COMPONENT, _ | VOLUMES ON WHICH THE CATALOG AND THE 
| | | COMPONENT OR CLUSTER ARE STORED. 
64 | WHEN A VSAM COMPONENT OR THE CONDITION THAT CAUSED THE RECORD TO 
| CLUSTER IS CLOSED, WHEN IT BE WRITTEN, IDENTIFIES THE VOLUME ON 
| BECOMES NECESSARY TO SWITCH TO | WHICH THE COMPONENT IS STORED, EXTENTS OF 
ANOTHER VOLUME TO CONTINUE | THE COMPONENT ON THE VOLUME, AND 
PROCESSING, OR WHEN NO MORE STATISTICS ABOUT PROCESSING EVENTS THAT 


WHEN A VSAM CLUSTEROR THE NAME OF THE VSAM CATALOG IN WHICH 
COMPONENT IS RENAMED. THE COMPONENT IS DEFINED AND THE OLD AND 


NEW NAMES. 





. . 
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SYSTEM USE RECORDS 






— When Written Information Contained 


Record Type 


























During system initialization afte 
WPL, | 


Real and virtual storage size and SMF 

options in-effect. 
AUSMF initialization and at the 
first sob step termination 









CPU wait Lime, system paging statistics 
accumulated during all of the ten-minute. 
intervals that expired since the last type | 
record was written, the expiration time of 
the last ten-minute interval. . 






following the expiration of a 
ten-minute interval of elapsed 
stem ine, 





At the beginning of a-dump data 
sel. 


System identification and the time and date 
tthe record was moved to the SMF buffer. 
(This record is the standard record header.) 















At the end 6f a dump data set. Sume type as 2, 






















2 
| After any period when there was 
no SME data sel avathable for 
recording. This is the first record 
written when an smMP data set 
agai becomes available. 


Count of SMF records generated but not . 
written and the start and end times of the 
period during which no records were — 
writlen, 












Descriptions of cach online device ater: 
(Fach entry description includes the device 
class, unit type. and channel/unit address.) 












~ 






During processing of the VARY 


Identification of the device added to the 
ONLINE Operator command, . 


confieuration. 
After a device is added to the 
configuration. 


Identification of the device made available 
by device class, unit type, and device 
address. Job requiring the allocation ts 
identified. 























Identification of the device removed from 
the confieuration, 


During processing of the VARY 
OFFLINE operator command. 









System wait lime and paging statistics since. 
the last record type | and the time this, 
record was buill. 


During processing of HALT or 
|SWITCH operator commands. 








At pL and after cach DEFINE 
command is processed under VS! 
only. 


WThe amount of storage assigned to cach 
partition. | ; 














RESinformation incloding name of RTAM 
start procedure. Maxunum numbers of 
readers and writers. number of entries in 
LINE table. number of line DCTS. number 
Of dines to activate. fine names, and unit 
addresses 


Durine RTAM Initialization wader 
VS auty, 














Whenever a MODIFY RTAM 
commind is sued under Vs 
only, 


RES information mscluding name of start 
procedure, type of MODIFY, ntunber of 
tines modified. dine numbers, and unit | 
addresses. | 








oot 





S oammannamaedl 


{When a STOP RTAM Command is 
issued under VSI only, 


rman Gee armecemen 





REAM formation inchiding name of 
REAM SLOP procedure, stop status, and 
number of lines started when STOP was 
received, 






T;Whenever a valid LOGON record 
is received by RTAM under VSI 
only, | 





RES information melding QED entry, 
passback area, and LOGON record. 


















48R Whenever a LOGOFF record is’ [RES information consisting of the QID 
received by REAM under VStLonly pentry. : 
49R Whenever an tavalid LOGON RES information including the QUID entry, 






record is received by RTAM under 


passhback area, and LOGON record. 
NSH only. . 
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See Tteeeuer 











Error X42. 
> TOBCOD 
















RQE To 
LCH Queue 





Yes 
No-—sEE No “rane 
ADDRESS > ALONE SEEK 
ALID ts sueg 
CA) | | Yes 


ROE fron 
SEEK LCH Queue} 





Chain user 
CQws To Syste 
Cew's if req'd 


ISTO Chan | Chan Restor 
Progra Rowtine 


To Caller | ail 
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Erroy x44" 
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gf RQE TO 
~- — LLCH Queue} 


INPUT 


TCB 


Task Contro! Bieck | 


108 


Input/Output Block 


Event Control Block 


Channel Program 


DCB 


Data Control! Block 


| DEB 
. Data Extent Block 


UCB 
Unit Control Block — 
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Extended Description 








ARES. ah ii, 





[f DEB validity check was specified at system generation, the DEB validity check 


-module, IFGDEBVR. is entered for non kevy=0 I-O requests to ensure that the DEB 


pussed to [OS is on the DEB chain. If not, the ABEND routine is entered. 


The IOB’s pointer to the DCB must be the same as the DEB’s pointer to the DCB. 
If not. the ABEND routine is entered. 


If the system has the protection feature. a non-supervisor requester's key must 
equal the storage key in the DEB. The ABEND routine is entered if the kevs do 
not match. 


The UCB is invalid if the UCBID field is not all 1's. 


If this routine is entered from the supervisor's SVC First Level Interruption 
Handle:. the Get Request Element routine is entered to build an RQE for this 
request. 

If this routine is entered from the Error EXCP routine, the address of the logical 


channel word is calculated and placed in a register. The Error EXCP reutine ts 
then reentered. 


Channel Contra! Unit Device 
. List 







Control 
Units on 


Channel 2 





Control Unit 
4 Entry 







Devices 
on Control 
Unit 4 





+UCB 242 


Beginning Address of Channel List + Channel Address = Address of Entry in Channel List 
Beginning of Control Unit List + Contents of Channel List Entry | 


+Control Unit Address = Address of Entry in Control Unit List 





Beginning Address of Device List + 2 (Contents of Control Unit List Entry) 


+ 2 (Device Number) = Address of Entry in Device List 


1. If the channel number is 7 or greater, the contents of the channel list entry is doubled. 
2. If the control unit entry list contains 2-byte entries, the control unit address is multiplied by 2 before it is used. 


UCB Lookup Table Entry Relationships 
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RQE TABLE 4 
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AVT 





Length of OEB Offset of first 
— teble empty entry 


a Pointer to first DEB 
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ae Pointer to second DEB 
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Control field 


Length of DEB Offset of first 

table empty entry 
|e Pointertofint DEB © 

Offset of next | | 
_Siamvatewmt | ORFF |) eit mot nn 

Offset of next 

empty entry 

| 0 Pointer to second DEB - 

+20 
T 0 0 T Unused entries 
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@ TRANSLATE CCW DATA ADDRESSES PROM VIRTUAL TO REAL 


@ PROVIDE FOR I/0 AREA CROSSING NON-CONTIGUOUS PAGES 


@ ASSURE PAGES REQUIRED TO PERFORM I/O OPERATION ARE PIXED 
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1/O SUPERVISOR | 


(1/Q REQUEST) 


EXCP 


SUPERVISOR 





1/0 INTERRUPTION 
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INTERRUPTION 
SUPERVISOR 






RETRY 


ERROR 
EXCP - 
SUPERVISOR 
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Program - 


Access 
Method 


Starting 1/O (V=V andV=R) 


SVC FLIH 





lOS 





EXCP SUPV 


SslO 





Page Supv 
VS Subsystem 
| EXcPVR 
4 
—~D + 
To + 


+$VC114 





Starting I/O (Page Supervisor arid VS Subsystems) 


| 10S 
SVC FLIH 


EXCP SUPV 


SiO 





EXCP Supervisor 


Validate 
Input 


Data 








Build Request — 
Queue 
Element 


| Fix Appendage 
and 






Control Block 





Device 
Dependent 
SIO Routines. 













Start 1/0 
Subroutine 


Translate 
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Process 
Condition 
Codes 
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Fix User aise Ee , 
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| [Pages on List Usey List | | 
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ree oe 


Pegeable storage 10S must translate Control blocks and 


CCW chains, — appendages must be 
: fixed. 


Fixed (VS Paegeable storage CCW chains have Control blocks and 
subsystems only) been translated by appendages have been 


the requester. fixed by the re- 
quester. 


Virtual = Real V*=R storage 
(V=A) 


Page Supervisor | V=A storage 


Characteristics of 1/O Requesters 


























































0 0 TSTLNK TSTUCB 
Address of next, Address of UCB 
ROE . 
4 4 | stTce TSTIOB 
Task 10 Address of 108 
8 8 | TSTPR TSTDEB 
Priority Address of DEB 
120° OC I tstKey TSTTCBAD 
|! Requester’s 
Pistection Address of TC8 
Key 
" ” : TSTHOAR 
ccw Translation flags and 
header address ; 
“Flags and Masks Na 
Flag Hex 
Field Contains = Value Means _ 
TSTHOR CCW x‘80’ Fixed requester (subsystem) 
Translation X‘40' —- Virtual requester 
Flags X'20° Virtual = Real requester 


x'10° Page supervisor is requester 
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EXCP macro generates — 
an SVC 0. 


EXCPVR macro 
generates an SVC 114. 


EXCP macro generates 
an SVC 0. 


EXCPVA macro 
generates an SVC 114. 
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VS/1 PAGE MANAGEMENT 


REFERENCES: 


OS/VS1 Planning and Use Guide 
CS/VS1 Debugging Guide. 

CS/VS1 System Generation Reference 
Cperator's Library:OS/VS1 Reference 
OS/VS1 Supervisor Lcgi.c 


GC24-5090 
GC24-5093 
GC26-3791 
GC38-0110 
SY24-5155. 





WHY A PAGE SUPERVISOR 


— ENSURE THAT CONTENTS OF VIRTUAL STORAGE ARE 
ADDRESSABLE 


— PROVIDE EFFICIENT EXCHANGE OF PAGES BETWEEN 
-REAL AND EXTERNAL STORAGE 


— MAINTAIN STATUS OF 
REAL STORAGE 
VIRTUAL STORAGE 


' PAGE MANAGEMENT ROUTINES 





SERVICE | 























INTERFACE 1 
ROUTINE y 
| 
: 
| 
TASK | 
DEFINE _ SWITCH J 
WORK | ANALYSIS POST 
ROUTINE — | 
: | 
| 
| 
Poe | 
ee PAGE | 


SUPERVISOR 


ENTRY TO PAGE SUPERVISOR 


PAGE EXCEPTION 





SVC 112 PROG CHK 
SVC 113 FLIH 
BRANCH | 
ENTRY 
PAGE 
EXCEPTION 
HDLR EXAMPLES 
| e POST 
er een e GETMAIN 
e USER _ VIA BRANCH 
e JES 


PAGE 


MANAGEMENT 
ROUTINES 





CONTROL REG 1 | a CONTROL BLOCKS 


| , CVT TABLES — USED 
a a reas 


| SEGMENT 


- TABLE : | 7 . 
) PSIA ee 
| 4 TCB 
PAGE TABLE | 4 


0 ADDRA Oxt1 





aeons | 
js Waa Pe 
Zea eee 
Zkeeeee 
Etat | tt 





PAGE TABLE ENTRY 
K | | U 
fo] racenooness ded 
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: [ U 
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K | | = | | U 
oe | PAGE ADDRESS _ Jo] fa 


a* 


PSIA 


HEX | 
0 r— : | _ , 
FLAG 7 | | By 
BYTE ADDRESS OF PAGE SUPERVISOR RB | © ADDRESS OF REAL STORAGE PAGE TABLE 
8 : 


ADDRESS OF PAGE DEVICE DESCRIPTOR TABLE 





oy NUMBER OF PAGES ~— 
POINTER TO PAGEABLE SUPERVISOR BBOX FOR NUMBER OF PAGEABLE FROM END OF NUCLEUS 


BATCH PAGE POST PAGES oe TO V=R BOUNDARY 





PCB QUEUE HEADERS 
68 — 3 
RSPT-DISPLACEMENT TO | RSPT DISPLACEMENT | RSPT DISPLACEMENT TO 
END OF NUCLEUS TO V=R BOUNDARY END OF REAL STORAGE 
70 | 7 
- REAL STORAGE FIX COUNTS 
AVAILABLE PAGE QUEUE | AVAILABLE PAGE QUEUE 
LOW THRESHOLD VALUE | HIGH THRESHOLD VALUE 


80 


AVAILABLE PAGE SHORT TERM FIX LONG TERM FIX SVC FIX 
FRAME COUNT THRESHOLD THRESHOLD | | THRESHOLD 


130 © 








REAL STORAGE PAGE TABLE 


FORWARD BACKWARD VIRTUAL FIX COUNT 


cvT +x‘15¢’ A psia 


psa + x‘a’ A RSPT 


ONE ENTRY PER FRAME OF REAL 
STORAGE 


EACH ENTRY — 16 BYTES 





Virtual Page Number 


-@ Bytes 4 and 5 of RSPTE- 
® Easily Converted to Virtual Address 
@ Example: 
VPN =01D9 
SLL — Eleven Bits OOCO 0001 1101 1001 
Result = 1110 1100 1800 COCO QO00 
- Virtual Address = EC8C0 








IN—USE QUEUES 


‘anaeeeaeeaeaeiammeninis 


REFERENCE 
LEVEL hn 


REFERENCE 
LEVEL n—1 


REFERENCE 
LEVEL 1 


REFERENCE 
- LEVELO 





R= REFERENCE BIT 
C = CHANGE BIT 


_Q@ HEADER LocarZon! 


RSTATELP 
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SAMPLE QUEUE STRUCTURE 


AVAILABLE PAGE COUNT — 4 


AVAILABLE PAGE QUEUE | Sete ae eh | “900 2CO 


LEVEL 0 QUEUE 


LEVEL 1 QUEUE 


LEVEL N QUEUE 


No 
O 
ra 
In 
GH 
ro 











~ HIGH VIRTUAL 
_ PAGE NUMBER IN 
EXTENT 


LOW VIRTUAL 
PAGE NUMBER IN 
| EXTENT 


NO. OF REC- 
ORD/TRACK 
FOR DEVICE 


ADDRESS OF DEB’s 
BASIC SECTION 


NOTE 1: 
TYPE BYTE FOR THAT DEVICE. 


NOTE 2: 
DEVICE IS A 2305-2. 


DEVICE TYPE BYTE. 


NUMBER OF 
RECORD/CYLIN- 
DER FOR DEVICE 


DEVICE TYPE 
BYTE 





-Xx‘07’ 


X‘08’ 
X‘09’ 

X'oe' 
X'od 
x'8A’ 


ADDR. OF DEB 
DEV, DEPEND, 
SEGTION 
POINTER TO IOB 
ASSOCIATED WITH 
DEB 
NOTE 2 


NOTE 1 


THIS FIELD CONTAINS THE SAME VALUE FOR EACH DEVICE AS THE UCB DEVICE 


THIS FIELD POINTS TO THE ADDRESS OF A LIST OF THREE IOB ADDRESSES IF THE 


2305-2 DASD > 

2314/2319 DASD 

3330 /3333 

3340 W/o RPS 
3330/3333 Mobé&l + 
3340 wl RPS 


-— —_— 





PCB 


HEX > | | | | 
0 —_ 

| PCBFLG1 FORWARD QUEUE ADDRESS PCBFLG2 BACKWARD QUEUE ADDRESS isd 
g = _——— : 





PCBTCB PCBREG.. 
ADDRESS OF TCB REGISTER SAVE AREA ADDRESS 

10 

PCBENF1 PCBENBG PCBENF2 PCBENED 

ENTRY BEGIN ADDRESS OR ADDRESS ENTRY END ADDRESS PLUS ONE OR 

FLAG BYTE OF FIRST LIST ENTRY FLAG BYTE UNUSED IF LIST 
18 : 

PCBPCBE | 
PCBAPCB 
PCBE LINK FIELD (BEGIN PAGE FLOATING APCB OR APCBE HEADER 
x SUPERVISOR WORK AREA) 
| PCBALCT 
PCBAPCB (CONTINUED) PAGE ALLOCATION ee 
COUNT : 
28 
: | PCBECB OR PCBECBA 
PCBFLG4 PCBFLG3 PCBALID RESERVED ACTUAL ECB OR ECB ADDRESS (IF AN 

. a | SVC REQUEST) END OF TCB PCB 

30 
PCBPSW 
PSW SAVE AREA 

38 


PCBSAVE 


: REGISTER SAVE AREA (16 FULLWORDS) 





APCBT FORMAT AND LOCATION 
CVT | | | 


: PGSIA 
CVTPGSIA 


: 
4 
8 
C{ PGSAPCBT 














1 APCBT 
. VIRTUAL ~ Ohta. a! 
LINK FIELD FIX COUNT | AILABLE. 
. PAGE NUMBERI /™ ; 
OR 
| | | | VIRTUAL | QUEUED ON 
0 LINK FIELD PCB POINTER | PAGE NO. OR PCB 
| RSPTE DISP / (IN USE) | 


e 1-8 BYTE ENTRY/PAGEABLE PAGE FRAME 





PAGE SUPERVISOR PCB QUEUE HEADERS 


HEX 
PSIA + 30 


se SIR POST QUEUE (SERVICE-OUT QUEUE) 


40 PREALLOCATION FIX OVERFLOW QUEUE 


PREALLOCATION APCBE DEPLETION QUEUE 
48 | 


DYNAMIC ALLOCATION INPUT QUEUE 





50 


[/O PROCESSOR QUEUE = PCB PAGING QUEUE 


60 V =R DEFERRED ALLOCATION QUEUE 


PCB DEACTIVATION QUEUE 








SIR 


ACQUIRE PCB | 
SAVE REQUEST INFORMATION 


INDICATE TYPE OF REQUEST 





TSAR 


CHECK FOR VALID REQUEST 
RELEASE/FREE—-HANDLE 
LOAD/FIX—HANDLE IF IN 
CORE 7 
LOAD/FIX—NOT IN CORE— | wee 
TRY TO HANDLE ~ + | RECLAIM 





DYNAMIC 


SIR y _ ~ | ALLOCATION 
HANDLED | > RETURN 
NOT HANDLED 
POST OPPD 





RETURN ON BRANCH OR SVC 
GO TO DISPATCHER FOR 
PAGE EXCEPTION 








SIR | TSAR 


- | 
POST sf 






PAGE SUPVR TASK 






BRANCH TO 
DISPATCHER PROCESSOR PAGE 
| PRIORITY 






: ROUTINE 
DISPATCHER | 





| | 

SCAN | 

‘WOR K-TO-DO’ 

BYTES | LOCK 


| WORK 


[_OYNAMICALLOCATION [FF [ oo 
TpReatuocation | 00 | 00 
PAGE 1/0 PROCESSOR | 00 | gg 
Tv=RaLocation | 00 | 00 
[pscupo processor | FF 












| DYNAMIC ~ 
ALLOCATION 
| PAGE IN 









REAL STOR. 
RELEASE 


PAGE OUT 










DYNAMIC ALLOC 
WORK TO DO 


[/O QUEUE ACTIVATOR 


SELECT PDDT — DEVICE 
QUEUE RSPT ENTRY TO 
PAGE I/O DEVICE QUEUE 
SET 1/0 PROCESSOR WORK TO DO 


1/O PROCESSOR 


ne, 





[/O PAGE 


PROCESSOR 








Aw~ 


Service Interface Routine ‘SIR’ 










SIR ‘Front End’ — I1EASIRPE IEASIREX ‘Back End’ 


Entered Whenever 
A PCB is Found 
On Service Out Q , 


















e Locate PCB 
geet say Frees PCB 
e rormatteques Queue PCB F-----—- — —» Dynamic Alloc Queue Posts Requester 
e Save Environment Set 
e BALR to TSAR Work Byte 
For Return Code 8 PCB 


@ Post Page Supervisor 
e@ Place Requester 
In Wait” 
Set Lock Bits 







| System oY Paging | 
ne Speen Complete ea 


| 
Wait 


INITIATOR 














CANCEL’ 


WAIT INTERCEPT 


WHEN V=R PROCESSOR 
HAS WORK TO DO, 
UNLOCKS LOCK TO FORCE 
ENTRY INTO V=R 

| PROCESSOR 


SIR 


V=R REQUEST GETMAIN 
GETMAIN 
SP 242 —_— 
POST ECB 
wwe POST ECB 
RCO — CONTINUE | \}| DO NOT 
POST ECB 
RC 4 — ISSUE 
‘RETRY OR 


TSAR 








GATHER PAGES TO 
SATISFY REQUEST 


RCO— COMPLETED 


RC 4— COULD NOT FIND 
ENOUGH 
CONSECUTIVE © 

PAGES — 


RC8— NEED V=R 
PROCESSOR 
























QPPD 
44 V=R PROCESSOR 


EXCHANGE PAGES WHICH 
HAVE BEEN INTERCEPTED 
WITH THOSE ON AVAILABLE 
QUEUE, ©) 


WHEN REQUEST IS 
COMPLETE, MOVE PCB TO 
SERVICE OUT QUEUE. 

IF NOT COMPLETED, LEAVE 
WORK TO DO AND LOCK 
BYTES ON. 












DISPATCHER 





PAGE MEASUREMENT 


WHEN COUNTER GOES TO 0 





-@ CONCATENATE LEVEL 1TO LEVELO 






@ MOVE ALL OTHER QUEUES DOWN ONE 


e MOVE REFERENCED PAGES FROM 
LEVELOTO LEVEL n — RESET 
REFERENCE BIT _ 






STATUS OF PAGE QUEUES AND PAGE FRAMES AT ACTIVITY MEASUREMENT TIME 










AVAILABLE 
QUEUE 


[oy Pace 
"7 PAGE 20 
ro PaGe2i 
To] Pace 22 


PAGE FRAMES 
AVAILABLE FOR 
ALLOCATION 









IN USE QUEUES 


- REFERENCE. 
| LEVEL 1 




















REFERENCE 
LEVEL N-1 


fo] Paces 
ro [PAGE 10 | 
fo | PAGES Cr PAGE 


| 0 = PAGE FRAME REFERENCE BIT IS OFF 


REFERENCE 
LEVELO 


cs PAGE 0 
PAGE 1 


ro Pace? 


REFERENCE 
LEVELN 


















RSPTE’s 


1 = PAGE FRAME REFERENCE BIT ISON 


STATUS OF PAGE QUEUES AND PAGE FRAMES AFTER ACTIVITY MEASUREMENT TIME 


| AVAILABLE 
QUEUE © 


cee 
‘[o[ Pace 20 
pol paceai 
















REFERENCE 
LEVEL 1 


[a [ Paces 
[o"| PAGE TO 


REFERENCE | 
LEVELN-1 


[ie [ Pace 6 


REFERENCE 
LEVEL N 









REFERENCE 
LEVELO 














MAJOR PAGE MANAGEMENT COMPON “NTS 


, ~  S§VC/PAGE EXCEPTION/BRANCH 


QPPD | : DISPATCHER 
a j WAIT 7 PAGE 
en DEFERRED INTERCEPT MEASURE : 
PREALLOCATION | — | 


AUXILIARY STORAGE MANAGEMENT 










CHANNEL | 
END 
APPNDG 


PAGE 
1/O 
PROCESSOR 


TSAR 





REAL STORAGE MANAGEMENT 


DYNAMIC DERSTE | (O50 RELEASE] IRECLAIM 
ALLOCATION | |REACT ACTIVATOR 
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SERVICE AIDS. ..VS/1 


REFERENCES 


OS/VS Service Aids GC28-0633 


OS/VS Service Aids PLM SY24-0635 
OS/VS SYS1.Logrec_ GC28-0638 


SERVICE AIDS 
A — INFORMATION GATHERING 


® SADMP - 
© GTF 
B — FORMATTING AND PRINTING 
® IFCEREPO 
® HMBLIST 


@ JOBOD 
@ PRDMP 


C — MODIFICATION 
@ PTFLE 


® HMASMP 
® IFCDIPOO. 


EVENTS TRACED BY GTE 


- INPUT/OUTPUT INTERRUPTIONS (10) 
- START I/O OPERATIONS (SIO) 
- SUPERVISOR CALL INTERRUPTIONS (SVC) 
- PROGRAM INTERRUPTIONS (PI) 
_ J EXTERNAL INTERRUPTIONS (EXT) 
- DISPATCHER TASK SWITCH OPERATIONS (DSP) 
- USER EVENTS (USR] 


_. GTF EVENTS (TRC) 





SELECTIVE TRACING 


_ SPECIFIC EVENT TYPES CAN BE SPECIFIED 

FOR SIO AND I/O 

'- SPECIFY DEVICES 

-FORSVC ——™ 
- SPECIFY SVC’S 

FOR P| 


- SPECIFY INTERRUPTS 





STARTING GTF 


START P ROCNAME [ identifier] , [devaddr], [volser], [ (parm value) ] | keyword-option ] 


 GTE. 





‘Or 3 
~ GTFSNP 
PARTITION 


NUMBER 





TRACE OUTPUT DEVICE - 





DSN= 
~ DISP= | 
DCB=(BLKSIZE=NUMBER) 
SPACE= © 





PROMPTING FOR GTF TRACE OPTIONS 


HH1004 SPECIFY TRACE OPTIONS 
-TRACE = option 1[,option 2 eee | sais n| 


_~3 MODES FOR TRACING FIVE TYPES OF EVENTS 
(1/0, SVC, PI, EXT, SIO) 


- SYS - COMPREHENSIVE nECORDS a 
- SYSM - MINIMAL TRACE DATA 


- SYSP - ADDITIONAL PROMPTING FOR DEVICE TYPE, svc NUMBER, 
~ OR PROGRAM INTERRUPT NUMBER 


| a RECORD FORMAT 
A ID OLD PSW,R15, RO, R1,OLD TCB 7 a 
"COMPREHENSIVE - 


ID OLD PsW JOBNAME MODULENAME, OLDTCB, R15,RO,R1_ 
plus svc sachets Information — | 





GTF PROCEDURE 


PROC - 

EXEC PGM=HHLGTF, 
PARM=MODE=EXT,DEBUG=NO,TIME=NO’ 

DD = DSN=SCRATCH,UNIT=2400, 
VOL=SER=TRACE,LABEL=(,NL),DISP=(NEW,KEEP) 
DD _ SYSOUT=A 

DD ~~ DSN=SYS1.PARMLIB (membername},] 
DISP=SHR] 


_ GTRACE MACRO | 
EFFECTIVE WHEN: 
-- GTF IS ACTIVE 


“~~ MODE = EXT 
_~ TRACE = USR 


-.{SYMBOL] GTRACE DATA=ADDRESS, LNG=number, — 
a — 1D = number [ ,FID = value ] 


FUNCTIONS OF PRDMP......0.- 


‘FORMAT/PRINT SADMP OUTPUT 
*FORMAT/PRINT SYS41.DUMP DATA SET 
“FORMAT/PRINT GIF TRACE DATA 


//PRDMP ~ JOB “ump, MSGLevel=1 
//PRINT = =)—)6- EXEC }3=PGM=HMDPRDMP © 


~ ——HANYNAME DD __ Defines Input Data Set 


— WSYSUT2 DD Saves Data for later proc. 


/ISYSPRINT DD Defines Message Data Set 
— //PRINTER DD ~~ Defines Output Data Set 
—TISYSUT1 == DD ~~ Optional work space 


mutually 
exclusive — 
/ISYSIN = = DD __ Defines Control Statements 


a 


FOI RMAT CONT ROL STATEWE ENT 


OCBTRACE 
LPAMAP 
FORMAT 
PRINT | 
EDIT — 





CTION CONTROL STATEMENTS 


CVT 
SEGTAB 
NEWDUMP 
ONGO 
TITLE 

END — 


EDIT 


EXIT 

— START 

STOP 
JOBNAME 

— TCB 
SYS 

10:S10:S10=10 

SVC 
Pl 
EXT 
DSP 
USR 


GTF 


Name . 
Time 
Time 


Names 


Addresses 


. SVC, SIO, 10, Pl, EXT, DSP 


All or selected devices © 
All or selected SVCs 


All or selected P!/ codes 


All 
All 
All or selected IDs 


PRDMP EXIT 


| Register 1 ~ | 7 2 Output area 






(120 bytes maximum.for user exit) | | 
(110 bytes maximum for format appendage) 



























QO Ff e GTF option word | 

oe ml input record $e : 

G 

« i Tt output area _ 7 oo aaa 

fae fe GTF option ward — see Figure APNDX-2 for details. 
: f 7 

16/ ) ID ield Z | 


t Data | 


Faia record 





FID Timieccanb EID 


| “bytes ; OPT12. 2 : 1-256 J 
—— — EXAMPLE USING SVC INTERRUPT - 
bytes - | 


FUNCTIONS OF SPZAP... cee. 


‘VERIFY AND/OR REPLACE DATA IN A RECORD ON DASD. 
‘VERIFY AND/OR REPLACE INSTRUCTIONS IN A LOAD MODULE. 

‘DUM? A DATA SET OR A LOAD MODULE. 

“UPDATE SSI INFORMATION IN THE DIRECTORY OF A PDS. 


//SPZAP 
Wa 


SYS al 


HSYSL 
. anak 


JOB 
EXEC 


DD 
DD 
DD 


PGIM= HIMASPZ AP 
Defines Message Data Set 


Defines Input Data Set 
_ Defines Control Statements 
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REFERENCES 

OS/VS Data Management Services GC26-3783 
OS/VS Data Management for ‘System Prog.GC28-0631 
OS/VS JCL Reference | GC28-0618 
OS/VS Utilities GC35-0005 
OS/VS Dadsm PLM | SY 26-3787 
OS/VS VSAM Programmer's Guide | GC 26-3818 


OS/VS 


DATA SET SECURITY 


VSAM Access Method Services © GC35-0009 — 


Eaters 
eee 








TYPES OF PROTECTION 


PASSWORD REQUIRED TO READ OR WRITE 
(This password allows either) 


PASSWORD REQUIRED TO READ OR WRITE 
(This password allows read only) 


NO PASSWORD REQUIRED TO READ 
PASSWORD REQUIRED TO WRITE 
(This password allows write) 


DSCB PROTECTION BITS 


DSCB +93 DSIDSIND field ...X .X.. 


LABEL= , , PASSWORD eaiaytl: BAO ge: 


LABEL=,, NOPWREAD ied ail as 








SYSTEM RESIDENCE VOLUME 


PASSWORD DATA SET 








DCB AND DD CODING FOR PASSWORD DATA SET 


DCB DDNAME=DD1,DSORG=PS,LRECL=80, X 
BLKSIZE=80,KEYLEN=52,RECFM=F, xX 


//DD1 DD DSNAME=PASSWORD,DISP=(NEW,KEEP), 
// | VOLUME=SER2= sysres volume, 
// — SPACE= (one extent large enough to hold all entries) 





Data Set Record Format 


92-byte “key” 80-byte ‘‘data area”’ 


' ' 








Fully qualified Logging field 
—?p 5 
data set name || (optional information) 


77 bytes 
44 bytes —8 bytes Protection mode indicator - 1 byte 


Binary counter — 2 bytes 






TYPE | DATA SET © 
| PROTECTION © 


DSCB PROTECT BIT SETTINGS | 


_.1.0.. PASSWORD REQUIRED TO READ OR WRITE 


.1..1., PASSWORD REQUIRED TO WRITE 
MODE INDICATOR BIT SETTINGS 
X‘80' = CONTROL PASSWORD FOR READ 


_ X’81" = CONTROL PASSWORD FOR READ AND WRITE | 


DSCB | MODE © | 
| INDICATOR 





PASSWORD 
ALLOWS | 

















| READ/NO WRITE | READ ONLY 











ADD FUNCTION 


ADD DSNAME=data set name 
PASWOR D2=new password 
CPASWORD=é=control password 

 TYPE= 17 
2 
3 
VOL=device=list 
DATA="‘user data’ 


REPLACE 


_ REPLACE 


DSNAME=data set name 
PASWORD1=current password 
PASWOR D2=new password 
CPASWORDé=control password 
TYPE= 1 | 7 

2 

3 
VOL=device=list 





DELETE 


DELETEP DSNAME=data set name 
PASWORD1=current password 
CPASWORD=control password 
VOL=device=list 


LIST 


LIST DSNAME=data set name 
PASWORD1=current password 





PASSWORD PROTECTION 


G) USER PROGRAM 


OPEN 7 
| MGRPAY OPEN ROUTINE ; 
OF CONTROL | 


(2) PROGRAM 


PAYROLL 
| VOLUME 
SYSTEM J 
RESIDENCE (3) VOL. 
VOLUME arg 
i TF ogea 
wae VTOC/ MGRPAY 


PASSWORD AY 


DATA SET 






PROTECT 
KEY 


MGRPAY 


MGRPAY | 
DATA SET 








- ) OPERATOR ENTERS "ALLOW" 


cLELA 


FOUR LEVELS OF PROTECTION 


MASTER LEVEL 
CONTROL LEVEL 
UPDATE LEVEL 
READ LEVEL 








ENTRY HIERARCHY. 


CLUSTER - highest level 
DATA/INDEX - same level 


ONLY READ LEVEL PASSWORD SPECIFIED | 
READPW(ALLOW} 
RESULTS IN: 


MASTER PASSWORD ALLOWs+. 


CONTROL PASSWORD ALLOW< | 
UPDATE PASSWORD : ALLOW: 











READ AND CONTROL PASSWORD SPECIFIED 
READPW(ALLOW) 
CONTROLPW(ALLOWIT) 
RESULTS: 
MASTER PASSWORD  ALLOWITy. 
CONTROL PASSWORD. ALLOWIT/4. . 
UPDATE PASSWORD not specified 


READ PASSWORD 3 ALLOW 


_ AUTHORIZATION PARAMETER 
~ AUTHORIZATION(entrypoint string) 
~ entrypoint is the entry point of your routine on SYS1.LINKLIB. | 


string is your own security information up to.256 bytes — 


abbr. | AUTH (entrypoint string) 





Diagram DB1. VSAM Catalog Management Overview 









VSAM Open, Close, and End-of- 
Volume, and Access Method 
a Services issued CATLG 
RI (SVC 26) for a VSAM 


seals Catalog Record. OS/VS 
ee a i ae ‘Catalog Management enters 3 
ae no VSAM here. Te 
,CTGPL ~ : , : 


Request Type = >) = 
ik, 


_~ 

=, é 

iy ce VSAM Catalog Management CCA CTGPL CTGFLs 

Identifier ~~ ay : errr , 

eee ee 1. Build and initialize a CCA for the caller’s request. tCTGPL = 

tCTGFL ee oe t Buff pee 
uller 






2. Retrieve the catalog record identified by the caller: 
(See Diagram DC], “‘Search: Retrieve the Base 
Catalog Record.’’) 
















. If the caller issued an Access Method Services 
command, process it and bypass steps 4 through 6. 


See Diagram EB1, ‘‘Catalog Management Service 
Sapiens ”) : : : ve | VSAM Catalog Management Buffer 






VSAM Catalog 






Catalog Record 








. Initialize the caller’s CTGPL and CTGFLs. 






. Check the caller’s authorization to use the record: 
(See Diagram DD1, ‘“‘Check the Password.’’) 









VSAM Catalog Record 
(from Step 2) 


(Tee 


Operator-Supplied 


Password : 





Authorized Not Authorized 









. Determine the request type and process 1f: 







Locate a> (See Diagram DE1, “LOCATE: Retrieve 
Catalog Information.’’) 


Update (See Diagram DH1, “UPDATE: Modify 
Catalog Information.’’) 


LSPACE > (See Diagram DK1, “LSPACE: Build an 
“Available Space’ Report.”’) 







7. Release virtual storage obtained for this request. 





OS/VS Catalog Management 










CCACD1 
Return Code 






| Register 15 
> 8. Return to the caller. eae 





| oom 
ae Request | as 
Option - 
\ 


Diagram DDI. Check the Password 


a Virtual Storage for the Caller’s Program 






Ril , | 
1. Does the caller want to bypass password checking? 
No Yes 










CCA 
TCTGPL 








2. Is the caller in either protection key 
O or supervisor state? 
Yes | 


‘Password 
Checking 
Options 


yy 


tCatalog 
Record 





User- 
Supplied 
Password 


+ Caller’s 
identity 
















SOK Return Error Return 









Catalog Record 
(Retrieved by the Caller) 






Password 
Set of Fields 


Cc ode Word 


Number of 
_| Attempts 


3. Determine the type of password to be checked. 






4. Obtain the password from the catalog record. 
(See Diagram-DL1, “Obtain A Catalog Record Field’s 
Value.’’) = 


5. Is there a user-supplied password? 
No. 





$ 


6. Request the password. 







Operator 
Reply 





7. Does the password in the catalog record equal the 
user-supplied password? 
Yes No 


| Ts 


—-—--— > 8. Did the user exhaust the number of attempts 
he has to supply the password? 
Yes Nog 


Error Return 


_ Password 


Console or 
TSO Terminal 


Message 
“|. .to Operator 


“Supply Correct [Type] 
Password for |Codeword ] 
Data Set”’ 





Diagram DD2. Check the Password 





Virtual Storage for the Caller’s Program | lop 
RI | | 
: | - @ Call the user security verification routine (USVR) 
9. Did step 7 confirm the data set’s master password? 
CTGPL Yes No 
CCA ao | . : 
Password a | 
Checking | ~ : 10. Is there a USVR specified for the user? 
, Options Virtual Storage 
No ry for the User’s Address Space 
necor 
User Security 
11. Call the USVR to confirm the user Verification 






Routine (USVR) 






program’s authorization to process 


Catalog Management Buffer 
the data set’s records. 





Catalog Record 
(Retrieved by the Caller) 








Password 


Set of Fields 12. Is the USVR return code 0? 


v7Yes No 


Rick: Error Return — 






a“ 


Return to the caller 






Ris (Set by USVR) 


13. Set a return code — successful completion — and 
return to the caller. 






CCACD! 









14. Set an error return code — security verificatio 
error — and return to the caller. 








cay PF OGlvr es 
\ | 
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TWO BASIC CONFIGURATIONS 


@ SINGLE CONSOLE: CONFIGURATION 


@® MULTIPLE CONSOLE CONFIGURATION 


Pp Udine 


SYSTEM 1/0 DEVICES 


e ONLINE 
@ OFFLINE 
@® CONSOLE 


"A 


2 Ol 








ee ee 


Alternate Console 


Card 
Reader | 





! 
| 
| 
| 
| 
| 
| 
| 


Central 


Processing 


Unit 


3210 or 3215 | 
Printer-Keyboard 








Master Console 





OETA 







Tape 
Orives 






Secondary Console 


Printers and 


Card Readers 


PF UG, 





Central 
Processing 
Unit 







Master Console 








Disk 
Drives 


Secondary Console 








- o 








_ 
| ees 
Central 
Processing 
Unit 
Master Console 
Disk 
| 4 : 
Tape ; ow ery. Orives 






Secondary Console Secondary Console 


Printers and 


Card Readers 


Secondary Console 





J 


S 

i. 

2 
E 
= 
> 

< 

—s 

(we) 


F Udit 


SPECIFICATION OF CONSOLES 


SCHEDULER 


ALTCONS - 


AREA - 


CONSOLE - 


- HARDCPY - 
— OLDWTOR - 


Pr. @ 


J 


~  ROUTCDE - 


s 
\ , 
N y 


address 
(1 - address, O - address 


(nn,nn) 


« address 
| - address, O - address 


routing codes 
number 


routing code 





_ L°Otra 


een 2RCT-VC ae aa 
f . | 


SPECIFYING SECONDARY CONSOLES 


SECONSLE 


_ALTCONS - 


AREA - 
CONSOLE - | 


PFK - 


_ ROUTCDE - 


VALDCND - 





“Olt. 


FUG 


PROGRAMMER COMMUNICATION 


MACRO'S 


® wto 
@ WITOR 


@ WIL 





OI 


yp Udm 


(— 


“ ; 
: 2 m4 
. 
Nh 
7 
nf 
» 


COMMAND GROUPS > 


INFORMATIONAL COMMANDS (INFO) 


SYSTEM CONTROL COMMANDS (SYS} 


1/0 CONTROL COMMANDS (10} 
CONSOLE CONTROL COMMANDS (CONS) 


vL6L “M109 WEIe 


OL°OL A. 


Py UGire 
ASIMPLE MULTIPLE CONSOLE CONFIGURATION 


MASTER O1F 
CONSOLE | 


1, 2, 3, 4, 5, 6, 7, 8, 9, 10 
all commend groups 










VS2 
SYSTEM 














4,6 






3,6 
INFO, 1/0 Controi INFO, 1/0 Control 
‘Command Groups Command Groups 
" UNIT RECORD | 010 
CONSOLE 
7 “ 
INFO COMMAND GROUP 
1/0 Control . 
e 
Command Groups 
Message Routing Codes | | INFO System Controt 
| | CANCEL 
1 Master console action DUMP 
2 Master console information Dea: sent HALT 
3 Tape area | LOG SEND “HOLD 
4 DASD area REPLY | MONITOR MODE 
S Tape library CONTROL’ STOPMN MODIFY 
6 DASD library 7 RELEASE 
7 Unit Record Area SET 
8 Teleprocessing equipment status vO eon RESET 
9 System Security MOUNT START 
10 System Error Maintenance | UNLOAD STOP 
11 Sysout device | VAnY® | WRITELOG 
SWAP Sswitcri 





IT °OT°A 


bles, yp UGm™M 


( 


SPECIFYING A USER EXIT 





—_ 


SCHEDULR OPTIONS = EXIT 


BEFORE SYSTEM GENERATION 


REPLACE DUMMY WTO ROUTINE IEECVXIT IN SYS1.AOSB 


AFTER SYSTEM GENERATION 


REPLACE EXIT ROUTINE IEECVCTE in SYS1. NUCLEUS 


THEN RE-IPL | 


20°01 A 


F wh 


Message Area (Size varies 
according to console type) 


PFK Display line 


Instruction line 
Entry area (2 lines) 


Warning line 


Full - capability display console screen 





rots 


y Valt 


ween Me 
ith 
i 


__ Message Area 


Warning line 





- Output4only display console screen 


PL'OL*A 


2250 

2260 

Model 168 
3277 (1) 
3277 (2) and 
Model 158 


* Optional Feature 







rUdGM 


Program 
Function* 
Light | Audible Keyboard 
Pen* Alarm * (PI-K) 








Full- 
capability | 








YES | YES YES | NO. 
YES YES NO NO | NO NO 
YES NO NO YES _ NO YES 
NO YES NO NO : NO NO 
YES YES | YES YES YES NO 


Figure INTRO-1. Summary of display console features 





Ol 


ety 


Beets, v \d a/v 


DIDOCS SPECIAL PROCEDURES 


MESSAGE DELETION 


Manual Deletion 

Automatic Deletion 
Roll Mode 7 3 
Roll-Deletable Mode 


CONTROLLING STATUS DISPLAY 


— 9T°OT°A 


Qs tf | 





yUdadmM 


CONTROLLING DISPLAY CONSOLES 


CONTROL €OMMAND 
Request or Cancel Mode of Message Deletion 
oan Time Interval for Roll or Roll- Deletable. Mode 
Check ieciticatinns in Effect 
Request Message Numbering 
Request Message Renumbering after Message Deletion 
Establish Display Areas 


- Frame Status Dispaty Areas 


v 


eQL'e'A 





SCHEDULE 








INPUT 
STREAM 


READ 


EXECUTE 


[7]: comPoNENT RUNS AS A TASK 






MASTER 
SCHEDULER 


~ COMMAND 


VS1 COMMAND PROCESSING 


HANDLING 
MODULE 






a 


’ 
ERIS ore | AITO A ony RO 
aa 


VEL “0D WEI Oo 


Operstor Readies 


the Device 


b 
rermmaon | | CONSOLE COMMAND FLOW 


1/0 Interruption SUPERVISOR 


Shaded Routines 
Operate Under 
the Console 


Communications 


Task 


| Analyze Interruption : 









Analyze (/O Supervisor 


Interruption | 










Attention Routine 






Po: 


sve Interruption 






OST ECB 





Analyze : 
Interruption © 
















Ready the Console . 


Communications Task SVC Interruption 







Load the Console 
1/0 Routine 






SVC Interruption 









Analyze Interruption 4 
| See Note 





Allow Operator to — 
Transmit Command | 
















Analyze Interruption <TSVC Interruption _ 1% “Routin™ 





| Load the Command - 
scheduling powilne ) 





fis ne 





sa RRNA AIT aA int nth, AR 


NOTE: While Command is being transmitted, other processing is barierned: Control peiugns to the Consolo 
1/0 routine after the command is tronsmitted. | | 


q ; 





Unit Control Module ae 


<«—__—_—_—— 4 Bytes ———_—_—__»> 


—_ External ECB 
- +100 


(64) Attention ECB ~ 


WTO/R ECB 
WTLECB/DOMECB~ 


| O 
< 
| ) 


-| RMS ECB | 


Address of EIL 


(Wh 


Event Indication List 
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ECB 
_ Addresses 


7 (The last address has X‘’80 
in the high-order bytes) 





_ | 7/0 Completion ECB 


( J Le sa. 6, 7 


Individual console entry 
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: ) 7 ina 


SBA 


PL6l ‘died WEI 





O(0) 
UCMEIL 


- Length in Doublewords 


16(10) 


-{28(1C) 


~ One word for each console devic 


| 101) 


LQ ' ° 


UCM Event Indication List (EIL) 


UCMRPYL UCMRTCT 
| Last assigned reply ID | Route count 


Addr of 2K NIP Mescsae dies 
Addr of External ECB 
Addr of Attention Pee | 
Addr of WTO/ R ECB 


_. Addr of DOM ECB 





Addr RMS.ECB 


List of all 1/O ECB Addresses — _ 
e SYSGENed with a minimum of two entries. The list is variable at 


SYSGEN only. Last entry has a high order byte = X‘80’ (Maximum of 128 bytes). 
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a 


at 








Write Queue Element (WQE) 


O(0) 7 1(1) 








WQEUSE | | WOELKPTR 
WOE UseCount | > _ Addr of Next WOE 


WOENBR 
Message Length 


WOETXT | 
Message Text (maximum 128 bytes) 


136(88) - ~~ -71439(88) 


WOEXA | _ WOEAVAIL 
Disposition Flags Reserved Buffer Flags (see 


(see description | | | ; description 
below) So = below) 


140(8C) 


Description of Flags 
WOEXA | | | 

| Disposition Flags with following meanings: 

WOQEPURGE X’80': Purge. | 

WQEQFHC  X’40’: Queue for hard copy. 

WQERQE X‘20’: RQE exists for this WOE. | 
WQEQDFHC X’‘10’: Queue for hard copy. | | : 
WQEXWTOR X’08’: WOE created forWTOR. 


WOQEAVAIL — 7 | 
Buffer Flags with the following meanings: | 
ROEBUFA  X‘80': Buffer is free. 
RQEBUFB X'40': Buffer is in use. 
| X‘20': Reserved. a 
ROQEBUFD X‘10': Buffer obtained dynamically. 
RQEBUFE  X’08’: Buffer has been serviced. 


§ 
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V.9.7 


‘, : 


/ 
Ste 
/ 


‘@) 

Oo . 
a | 

oO ; 
® 

oO | 

G : 

> a fat . 

x © | ; : 

c : 
e- 5 

Cc : 

@o : a 
4 

® 


‘System and Console Output Queues (with MCS) 


Cc 


CM 


| ~ First WOE Pointer 
UCM Entry Map 


Last WOE Pointer 


Output Queue Pointer 


UCM Entry — 





Pointer to Next Queue 
Entry to Be Serviced Z 


(six 4—byte entries) 
02] WOE Pointer 

WOE Pointer 

WOE Pointer 

WOQE Pointer 

WOE Pointer | — 


Pointer to Next 
Block 7 


1 


dae 


ye | 
Flags: : 
X‘CO' — Pointer to next block 
X'80’ — End of block/End of queue 
X‘02’ —-No longer needed | 
X‘01' — Entry exists (Message to be displayed) 
X‘00’ — Null entry So 


4 
\8{ei2/8/8 
{8 /s/3/ 23/2 
© 


\ 


“oo 
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s 





8] 8/2| 2/2 
© 


System Output Queue 
WOE | 


WOE 
Use Ct 
Use Ct 


WOE 
Use Ct 


WOE Pointer 


- Pointer — 


WQE Pointer 
WOE Pointer 
WQE Pointer 
Zero 
Zero 
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Next Block |- 
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Reply Queue Element (RPQE) 
———_— 


Ppeecreviretiinsion Bytes Se 





ROELKP 
Addr of next reply queue element 


6(6) 7(7) 
RQEID . ROQEXA ROQEAVAIL 
Reply identification no. Purge Flags (see | Buffer Flags (see 
| description description 
below) below) 


8(8) 


ROETJID1 : + ROETCB 
First half of TSO}. Addr of TCB task that. issued message for 
user ID which this RPQE represents a reply 


_ RQEXB 
Addr of Communications Task emergency 
message to cancel replies | 
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16(10) 


ROELNGTH | ‘ ROEPTR 
Maximum | Addr of user’s buffer 
length of reply 


20(14) | . ee 
ROETJID1 | ROEELB 
Second half of Addr of user’s ECB. 
TSO user ID 





Description of Flags 
RQEXA Purge Flags, with the following meanings when on: 
| Bit 6.0 — Associated reply will be purged. 

ROQEAVAIL Buffer Flags with the following meanings: 
RQEBUFAX‘80’ — Buffer is free. © 
ROEBUFBX’40’ — Buffer is in use. 

? X'20’ — Reserved. 

ROEBUFDX’‘10’ — Buffer has been obtained dynamically 
ROEBUFEX’08’ — Buffer has been serviced. 
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Command Processing 





- §VC34 Command 
Processing Modules 





1EEc1R51— | 


‘Master — 


| COMTASK | 
Device Processor | 


fora | 
Console 












| | RELEASE 
START | HOLD 
STOP, - , DEFINE, - 
etc. 


scheduler 
Router 






Console 









’ 
——mb ampBp emp eee lUeeeD eeew eee eee lee Ue eee 
y , 


~ SVC34 | Master Scheduler 
Command — ‘| Command | 
Processing | Processing 
| | 


OLA 
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Command Processor Modul 











/ 


SVC34 Command 
Processor Module 







comment 


CANCEL 










—1EE3703D 






















CONTROL _1EE7503D 
DISPLAY RT |EE8803D 
DISPLAY U 1EE20110 
DUMP - 1EE60110 
LISTBC IEELIST: 





IEE1603D 
IEE8703D 


LOG 
LOGOFF 





















LOGON IEELGON 
MODE IGF2603D 
MODIFY IEE4503D 


| MONITOR 
MOUNT _ 
MSGRT 
REPLY - 
ROUTE 
SEND 
SET 
START 
STOP 


1EE7103D 
IEE1903D 
IEE6303D 
-1EE1A03D 

IEERTE 
~ IEEVSEND 
-1EE0603D 

IEE1903D 
— 1EE4503D 











































STOPMN |EE4503D 
SWAP IGF2503D 
UNLOAD | IEE1103D 
VARY IEE3203D_ 
WRITELOG |EE1603D 





WRITER IEE9903D 


e — SVC34 Command 
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Command Processor Module 
Master Scheduler Command 


Command 


| CANCEL job oraGIEGe 


DEFINE 


DISPLAY 
DISPLAY ACTIVE 
HALT 


| HOLD 


| MONITOR ACTIVE 
| RELEASE | 


| RESET 
| SWITCH 


i SVC34 Command | 
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1EE1403D _ 
- 1EE3503D. 
IEESD566 

IEE3503D — 

- 1EE3503D 


Processor Module 


- 46637030- 


|EESD571 
|EE3503D 
+EESD566 
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IEE1403D 


V.9.12 


»( : CANCEL Command 


Entry from : 
Command 5 abe 
Scheduling se 
Routine 


Syntax checks | — | CANCEL 
the command. | > _ Command Processor 










No___| Posts the CANCEL ECBs | 
for system tasks. 





Problem 
Program 
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Yes 






Job active No | 








Yes 
7 Interfaces 
ie to abnormal 
on termination. 


Master Scheduler 
_ ‘Command Processing 





; | ( ~~ v8.13 


CANCEL Job on Queue 








Entry from 
Master Scheduler 
Router 






JQueue Command] 
Processor | 


' syntax Check 










Queue Search 
Routine 
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CANCEL Job on Queue 









CANCEL 
restarted job. 







Restarting 
" job 











Search * 
complete 


| Return ) _ * | : ae AS 
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a | - a ee _ Start Command Processing 


ad 


Rar 
Wtr — 


START 










Communication 
Task 


Read Command 


SVC34 
Command 
Processing 






















_ Partition 
- Controller 






START 
Command 
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START 


Syntax Check 











Build 
SDT 


JCLS Build 
| Routine 


Build JCLS 


» JES Reader ; 
Read JCLS. 


and process 
it. | 













System Task/ 
Problem Programs 
Interface . 


Post JEPS 
Monitor 


. |. JEPS Monitor 


ATTACH 
Rdr/Wtr Task 
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Labels the PGM name entered on the execute card as oS be 
a system task. 9 


w 5 ¥ ’ ( = 3 ed ' 





Those programs named on. the execute ecard which are | 




















NOT to have Data Set Integrity. : Le ; | 


LAB INTRODUCTION 





1. Each student will be assigned a team number which will be associated 
with the jobnames that he uses during the class. 


2. The following JOB statement format is required: 


//Exxxxtn JOB 3yyyyyzZ1F3251L,'member names! ,CLASS=C 


t = Team number (A-Z) Z 

n = Exercise number (1-9) 

XxXxx = Class number (provided by the instructor) PPPS 

yyyyy = Course code 37. 4 
-Z = Number provided by instructor j . 


3. The following macros are available to provide standard linkage instructions: 


3 0 
ENTER | R=\2 ,20rt,s16-f{(bogin,end,...)} ,epe4Es,cx0se-(closeoperands 
1 
R= Base register assignment (Default is 1) 
1 - Assigns Base Register 12 
2 - Assigns Base Register 12 and 1l 
3 - Assigns Base Register 12, 11 and 10 


q EQ= Requests Register Equates (Default is NO). Example: 
" 
RO EQU 0 
R9 EQU 9 (equates exist for all 16 registers) 
R15 EQU 15 
STG= If this parameter is not coded the following information 


1S printed if ABEND occurs: 


Floating Point Register 0 contains the ABEND PSW 
Floating Point Register 2 contains System Code 
Floating Point Register 4 contains User Code 
Floating Point Register 6 contains the contents of 
general registers 0 and 1 respectively at ABEND 
General Registers 0-15 (0-1 invalid, see FP6 above) 
Problem Program Module (Subpools not printed) 


(begin,end,...) causes only programmer selected areas 
of storage to be listed if ABEND occurs. 


0 causes a normal SYSUDUMP if ABEND occurs. . 


f 


CB= System control blocks to be printed if ABEND occurs. 
(Default is NO). 


CLOSE Datasets to be closed if ABEND occurs. Use normal 
CLOSE operand format. 





4, 


oe 


LEAVE RC=n 


RC= 


Note: 


term 0-4095 or any general register if register 


(To be used in conjunction with the ENTER macro) 
Return code. The n value may be any self-defining 


notation is used. If this parameter is not coded, 
the default is RC=0. — 


Example: (Each illustration results in return code of 8) 
a. LEAVE RC=8 


b. LA 15,8 
LEAVE RC= (15) 


This macro restores caller Regs, frees Save Area 
GETMAINed by ENTER macro and returns to caller. 


The following macro is available for your convenience in converting data 
fields to printable HEX character format. 


CTH 


Note: 


(rl) 
namel 
r 


1 


namel 


r2 


name2 


r3 


Note: 


21 2) 4, {t=} 
name 2 n 


Any register 2-12. The register must contain the address 
of the first byte of the field into which the converted 
(printable) characters are to be placed. 


The symbolic name of the first byte of the field into 
which the converted characters are to be placed. 


Any register 2-12. The register must contain the addre s 
of the first byte of the field which contains the data 
to be converted. 


The symbolic name of the first byte of the field which 
contains the data to be converted. 


Any register 2-12. The register must contain a binary 


value of the NUMBER OF BYTES of data to be converted 





to printable HEX character format from the area 
specified by r2 or name2. 


The decimal value of the NUMBER OF BYTES of data to be 
converted to printable HEX character format from the 
area specified by r2 or name2. 





The length in bytes of the field specified by rl or 
namel must be twice the value specified in r3 or n. 


If the register notation (r) format is used in any 
operand, only the decimal value of the register number 
is valid. Register equates are invalid. 


This macro modifies general registers 0, 1, 14 and 15. 


LO 24 
/ 
! 


ce 


The message portion of a WTO macro begins at NAME+8. a 








MACHINE EXERCISE 1 


Code a TYPE 3 reentrant SVC routine to monitor the unassigned 
virtual storage in a problem program partition. 


Your routine will be invoked and tested for reenterability and 


accuracy by an SVC Driver program. 


Use a procedure named TESTSVC to assemble and test your routine. 
Your Job Stream should appear as follows: 

//stepname EXEC TESTSVC ,TEAM=t 

//ASM.SYSIN DD . 


SVC routine source code 


Registers upon entry to your SVC routine will be as follows: 


Register 3-—-———-———» Pointer to CVT 
Register 4————» Pointer to TCB 
Register 5 ——-———» Pointer to SVRB 
Register 14—————» Return address 


Name your routine to conform with the standard TYPE 3 naming 
conventions. Use 255 as the SVC number. 


Return the accumulated total of unassigned storage as a binary 
value in Register Q. | 


MACHINE EXERCISE 2 


RN NILE LG EO I IE DINE ETI CECE NINE EELS OTIS 


SPIE EXIT 


A main task has been provided to allow you to end VS through a SPIE. EXIT 
routine. A SPIE macro has been issued by the main line code (named TASK). 


You are to write a SPIE EXIT routine that will trap all. program erect 


interrupts (1 - F) that occur in TASK. 


The requirements for this routine are: 
1, Name this routine SPIEXIT 


2. Issue a WO ‘SPIE EXIT IC nnn,’ ROUTCDE#11 where nnn {s the 
Interrupt Code % : os | 


\ 
3. Tone a _ with DCB=SNAP1, ID=30, SSE and PDATA= 


4, Return to the main line at RETURN | 


After a successful return | the SPIEXIT, ie message ‘CORRECT RETURN 


FROM SPIE' will be issued. 


To richie link edit and execute your routine with TASK use the aie 
JCL: 


//S1 EXEC ALGSPIE 
//ASM.SYSIN DD * 

[ SPIEXIT } 
* "END CARD 
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MACHINE EXERCISE 3 
EXITS 


A main task and a subtask have been provided to allow you to extend VS 
through EXIT routines. The exits which these tasks support are 


STAE EXIT and RETRY ROUTINE 
Attach End-of-Task Exit 


It is recommended that this exercise be done in two parts. 
Part one is the STAE and RETRY. 


Part two is the Attach End-of-TASK. 


NOTE: If you use ENTER, then specify STG=O 


Part 1 | STAE EXIT 


 In-the parameter list mead by STAE, the first address will be the address 
of the RETRY routine and the second address will be the return address to 
continue processing. | 


The requirements for this routine are: 


1. Name this routine STAEXIT 
2. Issue a WTO ‘STAE EXIT ROUTINE’ ,ROUTCDE=11 


3. Issue a snap with DCB=SNAP, ID=21, SDATA=(CB), and 
-PDATA=(PSW, REGS ) 


4. Indicate RETRY is to be entered 
STAE RETRY 
| The requirements for this routine are: 


1. Name this routine RETRY. 
2. Issue a WTO 'STAE RETRY ROUTINE’ ,ROUTCDE=11 


3. Issue a snap with DCB=SNAP, ID=22, wii ai and 
PDATA=(PSW REGS ) 


4. Free the STAE workarea ? 
5. Return to min (JSTASK) using the CONTINUE address in the 
 §tae list 
After a sueceseaul return from the RETRY routine, main will write a message 
‘INSTRUCTION AFTER PC FOR STAE'. 
To assemble, link edit and execute your routines with JSTASK, use the 
following jcl: 
//S1 EXEC  ALGSTAE 
//ASM.SYSIN DD * 
( RETRY ) | 


( STAEEXIT ) 
END CARD 


&: 
ir 


Part 2 ATTACH END-OF-TASK ROUTINE (ETXR) 


Write an End-of-Task routine that will receive control when the SUBTASK 
terminates. 
The requirements for this routine: 

1. Name this routine ATCHEXIT ~ 7” 


2. Issue a WRO ‘ATTACH END OF TASK EXIT ROUTINE’, 
ROUTCDE=11 


3. Issue a snap with DCB=SNAP, ID=23,SDATA=(CB), and 
PDATA= (PSW, REGS) 


4. Return to main -~ 


After a successful return from ATCHEXIT the message ‘JSTASK LEAVE WAIT ' 
will be issued. ) 


The SUBTASK will issue the message: 
—_..s"SUBTASK HAS STARTED! 


To assemble, link edit and execute your routines use the following jcl: 


//S1 EXEC ALGSTAE 
//ASM.SYSIN DD 
(RETRY ) > 

Pan STAEXIT ) © 

-9 ( ATCHEXIT ) > 


END card 
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MACHINE EXERCISE 4 


Code an SMF retrieval program to accumulate the following 
list of information from a cataloged SMF data set named > 
TEST.SYSPROG.SMFDATA. 

a. Accumulated JOB page-ins 

b. Accumulated JOB page-outs 

c. Accumulated JOB CPU time 

d. Accumulated entire SYSTEM page-ins 

e. Accumulated entire SYSTEM page-outs 

f. Start time for SMF interval being processed 

g. Accumulated SYSTEM wait time 

h. Stop time for SMF interval being processed 


Each accumulator in the above list should be a full word 
binary format. 


The accumulators should be arranged in the exact order 
shown in the above list. 


All information needed can be obtained from type 1,4 and 
12 SMF records. 


When the program has completed processing the SMF data set 
CALL an assembler language routine named PRTSMF and pass 
it the address of the beginning of the list. This routine 
will format and print a summary report of the accumulated 


information. 


Use the procedure named ASMCLG to assemble, link and 
execute your program. This procedure is the same as 
ASMFCLG except it has the macro library to allow you 
to use the ENTER and LEAVE macros concatenated into it. 


7. Begin accumulation by accessing only the START time from the 
first TYPE 1 record in the SMF data set. All other statistics 
in this and prior records reflect activity during IPL and 
would distort the purpose of the summary report. 


8. The following is an example of the output your program should 


produce. 
TOTAL ELAPSED TIME 15.46 MINUTES 
TOTAL JOB CPU TIME 271 SECONDS 
TOTAL SCP CPU TIME 364 SECONDS 
TOTAL CPU UTILIZATION 68 PERCENT 
TOTAL JOB PAGE-INS | 939 PAGES 
TOTAL JOB PAGE-OUTS 625 PAGES 
TOTAL JOB PAGING ACTIVITY 1564 PAGES 
TOTAL SCP PAGE=INS | 401 PAGES 
TOTAL SCP PAGE-OUTS 381 PAGES 
TOTAL SCP PAGING ACTIVITY 782 PAGES 
fy teen. Jise Tinmee 4 tn Olin £9 china, 
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MACHINE EXERCISE 6j/. 
Requirements: (t = team number) ee 
a. Code a complete PGFX and SIO appendage named IGGO19Yt. 
b. Modify a PCI appendage (deck provided) and name it IGG0O19Zt. 


The appendages are to be used with an existing program that 
retrieves records from a disk‘data set using EXCP. 


Consult the Data Management for System Programmers SRL under the 
topic APPENDAGES for register contents upon entry to an appendage. 


Additional pointers and lists are provided by the problem program 
as indicated on the following page. , 


The PGFX appendage must request all areas referenced in appendages 
and the channel program to be fixed (CCW's, Lists, Msgs, I/O areas). 


The SIO appendage must request translation for all exposed CCW's 
and all unexposed CCW's used in the channel program. 


The PCI appendage must: 


a. Check the IOB MBBCCHHR field to determine when record number 5 
on each track is to be retrieved. 


b. When record 5 is not to be retrieved: 


1) Modify a message DC in the problem program to identify 
input AREA] is being used. 


2) Return to supervisor indicating no translation required. 
c. When record 5 is to be retrieved: 


1) Modify a message DC in the problem program to identify 
input AREA2 is being used. 


2) Alter the TIC ccw at CHANPROG+40 to transfer to ALTCCW. 
3) Return to supervisor indicating the translation required. 


Use the following JCL to test the appendages: 


//stepname EXEC APENDAGE,TEAM=t 
//PGFX.SYSIN DD * 

REX SIO source *** 
//PCI.SYSIN DD * 


*kk PCI source *** 


MACHINE EXERCISE 7 


l. Prepare the JCL and Control Statements necessary to cause 
SPZAP to modify an instruction in a PDS Load Module named 
&SPZAP (TEAMt). The instruction to be modified is labeled 
BRANCH in the source listing on the following page. 


2. Use the following EXEC statement to invoke a procedure 
named SUPZAP which will provide all JCL needed to execute 
this exercise except the DD and Control statements required 
by the HMASPZAP Service Aid program. 


//stepname EXEC SUPZAP,TEAM=t 


t = team number 


3. The procedure contains the following steps: 


//ASM EXEC (Assemble source program) 

//LKED EXEC (Create load module &SPZAP (TEAMt) 
//GO EXEC (Execute program before ZAP) 
//ZAP EXEC PGM=HMASPZAP 

//TEST EXEC (Execute program after ZAP) 


4. Note: The EXEC statement to invoke SPZAP is provided in 
the procedure thus requiring your JCL to be qualified by 
the stepname ZAP. 





LOC OBJECT CODE 


000000 


OOOLAB 47F9 C28C 


OOO30E 47FO C218 
000000 


ADDR1 ADDR2 


O028C 


00218 


STMT 


1 

2 

3 
157 
158 
168 
178 
188 
204 
214 
225 
235 


SOURCE STAT EMENT | ASM 


ZAP 


BRANCH 


RETURN 
HEXLIST 


MSG 


PRINT NOGEN 

CSECT 

ENTER 

B MSG | 

wTO Ice gokaok kok dokiok kee ROUTCDE=LI 

wTO0 ** T HAVE BEEN ZAPPED ** ,ROUTCDE=11 

wTO Oe a ok a ORR KK OR OUTCDE=11 

CTH HEXL IST#05 ,BRANCH,4 

WTO 8 * ,ROUTCDE=11 

LEAVE  ——— ? 

WTC Oa eck ok ok dob dok ak ke ok eke 1 ROUTCDE=11] 
WTO = ='* TRY AND DELETE THIS MSG **,ROQUTCDE=11 


wTO Oka ak tok tok do kok a ak KK ROUTCDE=11 
a RETURN 
END ZAP 





MACHINE EXERCISE 4 


Prepare the user EXIT code, Control Statements and JCL 
necessary to cause PRDMP to list the JOB name, RB name 
and SVC number (in HEX) for all LOAD, LINK, XCTL and 
ATTACH records on the GTF Trace Data Set named TEST. 
SYSPROG.GTFTRACE. 


Use the following EXEC statement to invoke a procedure 
named GTFEXIT which will provide all JCL needed to execute 


this exercise except that required by the PRDMP Service 
Aid program: 


//stepname EXEC GTFEXIT,TEAM=t 


TEAMt = CSECT name of your exit routine 


The procedure contains the EXEC statement for PRDMP 

with a stepname of GTF thus requiring your JCL to use 

that name as a qualifier. The necessary STEPLIB statement 
is also provided by the procedure. Your job stream should 
appear as follows: 


//stepname EXEC GTFEXIT, TEAM=t 
//ASM.SYSIN DD * 


; Exit source statements 


//GTF . owe PRDMP DD statements 
//GTF,. ~~~ and 
etc. Control statements 


If the ENTER macro is used to provide suandard linkage 


for your EXIT ROUTINE, be sure to include the keyword 
operand STG=9Q. 


The CTH macro is available for your convenience in 
converting the SVC number to printable HEX characters. 


(See the LAB INTRODUCTION handout for a eoecrapeton of 
the CTH macro) 
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Task Management Dump Exercise | 
Using the rane ABCVS1, answer the following questions... 


: oe Fill in the addresses (and tengens if applicable) on the svtached: 
| sheet for the ABLE, BAKER, CHARLIE ae for the ne 


Lower partition boundary 
, Upper partition pounceny 
Fixed PQA 

; Problem program area 
Pageable PQA 


0oadauoa» 


2. Fill in the addresses and a on the attached sheet for the 


following: 
a. Nucleus 

b. SQA 

c.  V=R area 


3. Fill in the addresses and nee on the attached sheet Fox the 
| following: 


a. Pageable SQA 
b. Pageable Supervisor area 


4, What is the highest address in virtual storage for this machine? 


5, What is the TCB ID of the Baker task? of the ABLE task? 
Why are they not sequential? | 


6. Indicate where each of the following is located (fixed PQA, 
pageable PQA, or problem program area) 


a. DEB 
“De TIOT 
c... PRB 
-d. -LPRB 
e. -FSA 


7. What is the load point (virtual address) and size of the load 
| module CHARLIE? 


Seem 


“A 


SS= 


Questions 1 ee: 


NAME- 
NAME- 


NAME- | 


NAME- 
NAME~ 
NAME- 


NAME- 


NAME- 


NAME-V=R 
NAME-SQA 


NAME-NUCLEUS 


BEGINNING 


ADDR=- 


BEGINNING 


ADD R- 


BEGINNING 


ADDR- 


BEGINNING 
ADDR- 


BEGINNING 
ADDR- 


BEGINNING 
ADDR- 


BEGINNING 
ADDR- 


BEGINNING» 


_ ADDR- 


| BEGINNING 





ADDR- 


BEGINNING 
ADDR~ 


BEGINNING 
ADDR- 


BEGINNING 
ADDR- 





PAGEABLE 

LENGTH- | p SUPER- 
VISOR 
AREA 

LENGTH- 

_LENGTH- 

LENGTH- 

 LENGTH- ABLE 
BAKER 
CHARLIE 

LENGTH- | (PARTITION 


LENGTH- 


LENGTH- «> 


10. 


ll. 


Indicate where each of the free areas listed on the dump is 
located (fixed PQA, pageable PQA, or propiem program area). 


What control block did the dump program use to determine ‘the 
free areas referenced in question 8? : 


The vegieterw: contained in the SVRB for. SVC-601C contain values 
used by which module? What is the name of the SVC? What type 


is it? 


Show the first two entries ss ans aetna chaings 


a. FQE for fixed PQA 


oe PFQE for PP 


c¢.  PFQE for pageable PQA 


24 
eer 


14. 


15. 
16. 
17. 
18 . 


19, 
20. 
21, 


22. 


d. GQE 
What is the current potential lock setting? 
Will BAKER ‘go to a SPIE routine on page faults? Why? 


Consteuce the RB chain for the active . task. List the ree 
the type of “RB, and the name of the module associated with each | 


What ia the address of the first byte of the SVC i vanelent area? 
What is the value of the XRBUSE field in the RB for CHARLIE? | 


What is the address of the Partition: Information Block? | 


What modules are on the JPQA? 


anol the load list for ABLE. List the addresses, the type 
of RB, and the name of the module associated with each RB. 


How did the RB for XRAY get created and ny is its PSW field 
zero? | 


List the program check fntiveonte that are to be handled by 
the SPIE routine for BAKER. 


What is. “the address to be taken if one of the selected program 
eh oad occurs. | 








VS/1 PAGE MANAGEMENT DUMP EXERCISE 


Please answer the following questions using. the SYSABEND DUMP 
_in the VS/1 Release 4 manual (2R20~ A 2) 


des 


Ze 


SG 


pel 


dee 


What is the address of the Page Supervisor Information Area(PSIA)? 
What is the address of the Page Device Descriptor Table(PDDT)? 
What is the address of the Real Storage Page Table (RSPT) ? 

How. many RSPTEsS are there i. ene system? | 

How many pageable pages are in this sys gee PSIA)? 


At the beginning of the RSPT, the entries for the Nucleus and SQA 


are rong term fixed. How nay oe indicate LTF? 


Find the PCB queue headers. If there is no work-to-do, a queue 


header will “point. to itself. Are there any PCB .s queued up? 
What are the low and high available page queue threshold values? 
What is the current available page count? 


PSIA+X'124' contains the address of the pointer to the available 
page frame queue. What are the real storage addresses of the first 
two RSPTES on. the available queues 


Examine the RSPTE at X'1LG6EB8'. 


a. What is the Virtual Page Number? 


b. What is the Virtual Address? 


Cy. What. partition 1s: using “Chis page: 


d. Which PDDT entry is associated with this page? 


The first page device Aerie in the PDDT will contain which | 
Vir cuad Balers 3 
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